kohonen_pattern_create Subroutine

public subroutine kohonen_pattern_create(current_pattern, input, name)

Kohonen pattern constructor

Type Bound

kohonen_pattern

Arguments

Type IntentOptional Attributes Name
class(kohonen_pattern) :: current_pattern

A kohonen_pattern object
real(kind=wp), intent(inout), dimension(:,:) :: input

A real array
character(len=*), optional :: name

A character string with the name of the pattern


Calls

proc~~kohonen_pattern_create~~CallsGraph proc~kohonen_pattern_create kohonen_pattern%kohonen_pattern_create none~create~11 kohonen_prototype%create proc~kohonen_pattern_create->none~create~11

Called by

proc~~kohonen_pattern_create~~CalledByGraph proc~kohonen_pattern_create kohonen_pattern%kohonen_pattern_create proc~external_train_map self_organizing_map%external_train_map proc~external_train_map->proc~kohonen_pattern_create proc~initialize_variables~3 initialize_variables proc~initialize_variables~3->proc~kohonen_pattern_create proc~train_two_level_som train_two_level_som proc~train_two_level_som->proc~kohonen_pattern_create

Source Code

   subroutine kohonen_pattern_create(current_pattern,input,name)
!========================================================================================
!!   Kohonen pattern constructor
      class(kohonen_pattern) :: current_pattern
!! A `kohonen_pattern` object
      real(kind=wp),dimension(:,:),intent(inout) :: input
!! A real array
      character(len=*),optional :: name
!! A character string with the name of the pattern   
      call current_pattern%pattern%create(input);
      if(present(name)) then
         current_pattern%pattern_name=trim(name);
      else
         current_pattern%pattern_name="";
      endif
!   
 end subroutine kohonen_pattern_create